<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb"   
    Inherits="MortgageCalculator.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
 <HEAD>
  <title>Mortgage Calculator</title>
   <meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">
     <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
     <meta content="VBScript" name="vs_defaultClientScript">
     <meta content=http://schemas.microsoft.com/intellisense/ie5
          name="vs_targetSchema">
     <script id=clientEventHandlersVBS language=vbscript>
<!--

Sub btnCalculate_onClick()
    Dim result, answer, interest, months, amount, term

    amount = document.all.txtAmount.value
    interest = document.all.txtInterest.value
    months = document.all.txtMonths.value
    interest = interest / 12
    term = (1.0 + interest) ^ months
    answer = interest * amount * (term / (term - 1.0))
    document.all.txtResult.value = FormatCurrency(answer)

End Sub

-->
</script>
</HEAD>

 <body>
    <form id="Form1" method="post" runat="server">
    <P></P>
    <DIV style="DISPLAY: inline; FONT-WEIGHT: bold; FONT-SIZE: 15pt; 
        WIDTH: 191px; HEIGHT: 25px" ms_positioning="FlowLayout">Mortgage
        Calculator</DIV>
     <P></P>
     <INPUT id="txtAmount" style="WIDTH: 143px; HEIGHT:22px" type="text">
     <DIV style="DISPLAY: inline; FONT-WEIGHT: bold; WIDTH:70px; HEIGHT: 15px"
        ms_positioning="FlowLayout">Amount</DIV>
     <P></P>
     <INPUT id="txtInterest" type="text">
  <DIV style="DISPLAY: inline; FONT-WEIGHT: bold; WIDTH:126px; HEIGHT: 19px"
        ms_positioning="FlowLayout">Interest rate (.06)</DIV>
     <P></P>
     <INPUT id="txtMonths" type="text">
     <DIV style="DISPLAY: inline; FONT-WEIGHT: bold; WIDTH:70px; HEIGHT: 15px"
        ms_positioning="FlowLayout">Months</DIV>
     <P></P>
     <P title="Mortgage Calculator">
 <INPUT id="btnCalculate" style="FONT-WEIGHT: bold;WIDTH: 88px; HEIGHT:24px"
        type="button" value="Calculate">
    </P>
     <INPUT id="txtResult" type="text">
 <DIV style="DISPLAY: inline; FONT-WEIGHT: bold; WIDTH:70px; HEIGHT:15px"
        ms_positioning="FlowLayout">Payment</DIV>
    </form>
 </body>
</HTML>
